home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00013_go to the frame ristretto.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.2 KB  |  46 lines
  1. global gmaxslide, pausa, gElencoOpere, gScappaPerMemoria
  2.  
  3. on exitFrame
  4.   go(the frame)
  5.   if pausa = 0 then
  6.     if the freeBlock < (the memorysize / 2) then
  7.       tmp = the memberNum of sprite 1
  8.       gScappaPerMemoria = "ristretto#" & tmp
  9.       go(1, "black")
  10.       unLoad()
  11.       exit
  12.     end if
  13.     if the timer > (3 * 60) then
  14.       tmp = the memberNum of sprite 1
  15.       nome = member(tmp, "SLIDE").name
  16.       vecchio = nome
  17.       delete char 6 to 7 of nome
  18.       pos = getOne(gElencoOpere, nome)
  19.       if pos = 0 then
  20.         pos = random(1, gmaxslide)
  21.       end if
  22.       if pos = gmaxslide then
  23.         pos = 1
  24.       else
  25.         pos = pos + 1
  26.       end if
  27.       nome = getAt(gElencoOpere, pos)
  28.       nome = nome & "01"
  29.       the itemDelimiter = "#"
  30.       repeat with i = 1 to the number of lines in field "titolo#nomefile"
  31.         dati = line i of field "titolo#nomefile"
  32.         cod = item 2 of dati
  33.         if cod = nome then
  34.           dida = item 1 of dati
  35.           put dida into field "dida"
  36.           exit repeat
  37.         end if
  38.       end repeat
  39.       sprite(1).member = member(nome, "SLIDE")
  40.       unloadMember(member(vecchio, "slide"))
  41.       unLoad()
  42.       startTimer()
  43.     end if
  44.   end if
  45. end
  46.